﻿Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class Connexion

    Private mycon As SqlConnection
    Private strcon As String
    Public rdr As SqlDataReader
    Public myReq As String
    Private cmd As SqlCommand
    Public idSite As Integer

    Public Sub Connecter(ByVal databaseStr As String)
        strcon = databaseStr
        mycon = New SqlConnection(strcon)
        mycon.Open()
        cmd = New SqlCommand(myReq, mycon)
        rdr = cmd.ExecuteReader
    End Sub

    Public Sub Disconnecter()
        rdr.Close()
        mycon.Close()
    End Sub



End Class
